home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_303_EachMenu < prev    next >
Encoding:
Text File  |  1992-04-08  |  2.6 KB  |  131 lines
  1. %case buildOrder%
  2.     %if main|hierarchical%
  3.         %if menuname = Apple%
  4.         %elsif menuname = File%
  5.             {    %menuname%M.p%        %}
  6.         %elsif menuname = Font%
  7.             {    %menuname%M.p%        %}
  8.         %else%
  9.             {    %menuname%M.p%        %}
  10.         %endif%
  11.     %endif%
  12. %case sourcefile%
  13.     %if main|hierarchical%
  14.         %if menuname = Apple%
  15.         %elsif menuname = File%
  16.             %genfile Menu.File menuname+M+.p%
  17.         %elsif menuname = Font%
  18.             %genfile Menu.Font menuname+M+.p%
  19.         %else%
  20.             %genfile Menu menuname+M+.p%
  21.         %endif%
  22.     %endif%
  23. %case dependency%
  24.     %if main|hierarchical%
  25.         %if menuname = Apple%
  26.         %else%
  27.             %menuname%M.p ∂
  28.         %endif%
  29.     %endif%
  30. %case makeDepend%
  31.     %if main|hierarchical%
  32.         %if menuname = Apple%
  33.         %else%
  34.             %menuname%M.p.o%    %ƒ    %menuname%M.p ∂
  35.                                     %for each menuitem gen dialogDependency%
  36.                     ∂
  37.                                     ResourceDefs.p ∂
  38.                                     Globals.p
  39.  
  40.         %endif%
  41.     %endif%
  42. %case linkFile%
  43.     %if main|hierarchical%
  44.         %if menuname = Apple%
  45.         %else%
  46.             %menuname%M.p.o ∂
  47.         %endif%
  48.     %endif%
  49. %case uses%
  50.     %if main|hierarchical%
  51.         %if menuname = Apple%
  52.             %for each menuitem gen usesDialog%
  53.         %else%
  54.             %menuname%M,
  55.         %endif%
  56.     %endif%
  57. %case get%
  58.     %MenuName%Menu    := GetMenu (%MenuName%ID);
  59.     %if menuname = Apple%
  60.         FailNilResource (Handle (%MenuName%Menu));
  61.         AddResMenu (%MenuName%Menu, 'DRVR');
  62.     %elsif menuname = Font%
  63.         AddResMenu (%MenuName%Menu, 'FONT');
  64.     %elsif menuname = Sound%
  65.         AddResMenu (%MenuName%Menu, 'snd ');
  66.     %end if%
  67. %case insert%
  68.     %if main%
  69.         InsertMenu (%MenuName%Menu, 0);
  70.     %elsif hierarchical%
  71.         InsertMenu (%MenuName%Menu, -1);
  72.     %endif%
  73. %case initTitles%
  74.     %if main|hierarchical%
  75.         %if not menuname = Apple%
  76.             Init%MenuName%M;
  77.         %end if%
  78.     %endif%
  79. %case doApple%
  80.     %if menuname = Apple%
  81.         %for each menuitem gen doItem%
  82.  
  83.         {----------}
  84.         Procedure DoApple (itemNr:    integer);
  85.         var
  86.             name:            Str255;
  87.             refNum:            integer;
  88.         Begin
  89.             case itemNr of
  90.                 %for each menuitem gen handleItem%
  91.  
  92.                 otherwise begin
  93.                         GetItem (AppleMenu, itemNr, name);
  94.                         refNum := OpenDeskAcc (name);
  95.                     end;
  96.             end; {case}
  97.         End; {DoApple}
  98.  
  99.     %endif%
  100. %case dispatch%
  101.     %if main|hierarchical%
  102.         %if menuname = Font%
  103.             %MenuName%ID:
  104.                     Choose%MenuName% (itemNr);
  105.         %else%
  106.             %MenuName%ID:
  107.                     Do%MenuName% (itemNr);
  108.         %endif%
  109.     %endif%
  110. %case menuHandle%
  111.     %MenuName%Menu:%    %MenuHandle;
  112. %case externmenuhandle%
  113.     %MenuName%Menu:%    %MenuHandle;
  114. %case menuID%
  115.     %MenuName%ID%    %= %MenuID%;
  116.         %for each menuItem gen define%
  117.  
  118. %case enable%
  119.     %if menuname = File%
  120.         menu := FileMenu;
  121.         %for each menuItem gen enableFile%
  122.  
  123.     %elsif menuname = Edit%
  124.         menu := EditMenu;
  125.         if isFront then begin
  126.             %for each menuItem gen enableEdit%
  127.  
  128.         end;
  129.         EnableTitle (EditMenu,     isFront);
  130.  
  131.     %endif%